home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DTP / DTP_TEX / 3239.ZIP / DVIMTP.ZIP / STRRCHR.H < prev    next >
Text File  |  1987-11-01  |  817b  |  30 lines
  1. /* -*-C-*- strrchr.h */
  2. /*-->strrchr*/
  3. /**********************************************************************/
  4. /****************************** strrchr *******************************/
  5. /**********************************************************************/
  6.  
  7. #if    (KCC_20 | IBM_PC_MICROSOFT | OS_VAXVMS)
  8. #else
  9. char*
  10. strrchr(s,c)    /* return address of last occurrence of c in s[], */
  11.         /* or (char*)NULL if not found.  c may be NUL; */
  12.         /* terminator of s[] is included in search. */
  13. register char *s;
  14. register char c;
  15. {
  16.     register char *t;
  17.  
  18.     t = (char *)NULL;
  19.     for (;;)        /* loop forever */
  20.     {
  21.     if (*s == c)
  22.         t = s;    /* remember last match position */
  23.     if (!*s)
  24.         break;    /* exit when NULL reached */
  25.     ++s;        /* advance to next character */
  26.     }
  27.     return (t);
  28. }
  29. #endif
  30.